home *** CD-ROM | disk | FTP | other *** search
/ Netware Super Library / Netware Super Library.iso / file_mgt / parse_m / exampl02.pom < prev    next >
Encoding:
Text File  |  1995-05-02  |  1.6 KB  |  59 lines
  1. ;
  2. ;   NOTE:  A quick-reference summary of POM commands appears in EXAMPL04.POM
  3. ;
  4. ;-------------------------------------------------------------------------------
  5. ;
  6. ;   Ignore lines that are less than 85 characters long
  7. ;
  8. MINLEN   "85"
  9. ;
  10. ;   Ignore lines that contain extraneous information ("^" means "contains")
  11. ;
  12. IGNORE   $FLINE ^ "Date: "
  13. IGNORE   $FLINE ^ "Order      Expected"
  14. IGNORE   $FLINE ^ "Date       Ship Date"
  15. IGNORE   $FLINE ^ "Item number/Description"
  16. ;
  17. ;   Change double-quotes (the " character) to single-quotes (').
  18. ;
  19. CHANGE   $FLINE """" "'"
  20. ;
  21. ;   Determine where we are
  22. ;
  23. IF       $FLINE[8] = " " THEN ITEMCNTR = ITEMCNTR+ ELSE "0"
  24. ;
  25. ;   Set variables
  26. ;
  27. BEGIN    ITEMCNTR = "0"
  28.   SET    REFNUM   = $FLINE[  1   8]
  29.   SET    CUSTCODE = $FLINE[ 10  15]
  30.   SET    CUSTDESC = $FLINE[ 17  47]
  31.   SET    ORDRDATE = $FLINE[ 49  57]
  32.   SET    MSTRCVDT = $FLINE[ 60  68]
  33.   TRIM   REFNUM   "B" " "
  34.   TRIM   CUSTCODE "B" " "
  35.   TRIM   CUSTDESC "B" " "
  36.   TRIM   ORDRDATE "B" " "
  37.   TRIM   MSTRCVDT "B" " "
  38. END
  39.  
  40. BEGIN    ITEMCNTR = "1"
  41.   SET    PRICE    = $FLINE[105 114]
  42.   SET    QTY      = $FLINE[ 76  86]
  43.   SET    PARTNUM  = $FLINE[ 10  32]
  44.   TRIM   PRICE    "B" " "
  45.   TRIM   PRICE    "A" ","
  46.   TRIM   QTY      "B" " "
  47.   TRIM   PARTNUM  "B" " "
  48.   IF     PRICE     = "" THEN PRICE = "0.00"
  49.   IF     QTY       = "" THEN QTY   = "0"
  50. END
  51.  
  52. BEGIN    ITEMCNTR = "2"
  53.   SET    DESCRIP  = $FLINE[ 10  43]
  54.   TRIM   DESCRIP  "B" " "
  55.   OUT    |"{REFNUM}","{CUSTCODE}",{PRICE},{QTY},"{PARTNUM}",
  56.   OUTEND |"{DESCRIP}"
  57.   SET    ITEMCNTR = "0"
  58. END
  59.